home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / HyperCard / Games / CirclusMaximus™ / card_7507.txt < prev    next >
Encoding:
Text File  |  1991-03-02  |  1.9 KB  |  94 lines
  1. -- card: 7507 from stack: in
  2. -- bmap block id: 9857
  3. -- flags: 4000
  4. -- background id: 7338
  5. -- name: Plain Sphere
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Surface Area
  11.   get 4*pi*card field "Radius"^2
  12.   put it into card field "Surface Area"
  13.  
  14.   --Calculate Volume
  15.   get (4/3)*pi*card field "Radius"^3
  16.   put it into card field "Volume"
  17.  
  18.   --Calculate Circumference
  19.   get 2*pi*card field "Radius"
  20.   put it into card field "Circumference"
  21. end mouseUp
  22.  
  23.  
  24. -- part 1 (field)
  25. -- low flags: 00
  26. -- high flags: 0002
  27. -- rect: left=318 top=91 right=108 bottom=447
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 3
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Radius
  36.  
  37.  
  38. -- part 2 (field)
  39. -- low flags: 01
  40. -- high flags: 0004
  41. -- rect: left=319 top=162 right=181 bottom=448
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Surface Area
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 01
  54. -- high flags: 0004
  55. -- rect: left=319 top=201 right=220 bottom=448
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Volume
  64.  
  65.  
  66. -- part 4 (field)
  67. -- low flags: 01
  68. -- high flags: 0004
  69. -- rect: left=319 top=237 right=256 bottom=448
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Circumference
  78.  
  79.  
  80. -- part contents for card part 1
  81. ----- text -----
  82. .500000
  83.  
  84. -- part contents for card part 2
  85. ----- text -----
  86. 3.141593
  87.  
  88. -- part contents for card part 3
  89. ----- text -----
  90. 0.523599
  91.  
  92. -- part contents for card part 4
  93. ----- text -----
  94. 3.141593